;
; ------------------------------------------------------------
;
;   PureBasic - Sort (String) example file
;
;    (c) 2003 - Fantaisie Software
;
; ------------------------------------------------------------
;

; Don't change the number of elements without add them in the data below !
;
#NbElements = 8

Dim Array.s(#NbElements)

For k=0 To #NbElements
  Read Array(k)
Next

OpenConsole()

For k=0 To #NbElements
  Print(Array(k)+" ")
Next

SortArray(Array(), 3)

PrintN("")
PrintN("")

For k=0 To #NbElements
  Print(Array(k)+" ")
Next

MessageRequester("Information", "Sort finished !", 0)

End


DataSection
  Data.s "Hello", "This", "is", "a", "Nice", "test", "Isn't", "it ?", "Haha !" 
EndDataSection
; IDE Options = PureBasic v4.00 Alpha 2 (Windows - x86)
; Folding = -
; Executable = C:\Programmation\PureBasic\Examples\GadgetAdvanced.exe
; DisableDebugger